home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / PostRipped.AMOS / PostRipped.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  2001-09-09  |  13.0 KB  |  571 lines
  1. Hide 
  2. Dim PA(15,1),SI(359),CO(359),SP(7,5)
  3. Global PA(),SI(),CO(),SP()
  4. Degree 
  5. A#=0
  6. For A=0 To 359
  7.   W=Sin(A#)*256
  8.   SI(A)=W : CO((A+90) mod 360)=W
  9.   A#=A#+1.0
  10. Next 
  11. 'Bank Delta Decode 3 
  12.  Extension_8_108E 3
  13. FIRST
  14. SECOND
  15. THIRD
  16. FOURTH
  17. LAST
  18.  Extension_8_10A8 
  19. Procedure FIRST
  20.   Bank Swap 5,1
  21.   Auto View Off 
  22.   Erase 2
  23.   Unpack 8 To 1 : Screen Hide 
  24.   For A=0 To 58
  25.     Get Icon A+1, Extension_8_092E(A mod 20,4), Extension_8_092E(A/20,4) To Extension_8_092E(A mod 20,4)+16, Extension_8_092E(A/20,4)+16
  26.   Next 
  27.   Unpack 9 To 1 : Screen Hide 
  28.   Screen Open 0,960,200,8,0 : Screen Hide 
  29.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 6
  30.   Get Palette 1
  31.   Screen Display 0,128,40,320,200
  32.   Screen Copy 1,0,0,240,144 To 0,0,56
  33.   For A=0 To 239
  34.     Screen Copy 0,A,56,A+1,200 To 0,479-A,56
  35.   Next 
  36.   Screen Copy 0,0,56,480,200 To 0,480,56
  37.   Screen Close 1
  38.   Screen Open 1,336,200,8,0 : Screen Hide 
  39.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  40.   Screen Display 1,128,40,320,200
  41.   Screen Offset 1,8,0
  42.   Get Icon Palette 
  43.   C1=Colour(1) : C2=Colour(2) : C3=Colour(3)
  44.   Get Palette 0
  45.   Colour 9,C1 : Colour 10,C2 : Colour 11,C3
  46.   For A=12 To 15 : Colour A,$FFF : Next 
  47.   Screen 0 : For A=0 To 31 : Colour A,0 : Next 
  48.   Screen Show 0 : Screen Show 1
  49.   Wait Vbl : View 
  50.   Dual Playfield 0,1
  51.   Dual Priority 1,0
  52.   View 
  53.   Set Rainbow 0,6,202,"","",""
  54.   C0=8 : C1=16 : C2=16
  55.   For A=0 To 201
  56.     If(A and 3)=0 Then C0=Max(C0-1,0)
  57.     If(A and 7)=0 Then C1=Max(C1-1,0)
  58.     If(A and 15)=0 Then C2=Max(C2-1,0)
  59.     Rain(0,A)= Extension_8_0A0E(C0,C1,C2)
  60.     If A>2
  61.       If Rain(0,A-1)<>Rain(0,A)
  62.         Rain(0,A-2)=Rain(0,A)
  63.       End If 
  64.     End If 
  65.   Next 
  66.   Rainbow 0,0,39,202
  67.   Rem   |--------------------| 
  68.      T$="   WILLKOMMEN ZUR   "
  69.   T$=T$+" POSTDISK APRIL  94 "
  70.   T$=T$+"                    "
  71.   T$=T$+"EXKLUSIV FUER JAGUAR"
  72.   T$=T$+"                    "
  73.   T$=T$+"  DRUECK NE TASTE   "
  74.   T$=T$+" WENNS WEITER GEHEN "
  75.   T$=T$+"       KANN...      "
  76.   Fade 3 To 1 : Screen 1
  77.   XL=1 : TIM=0 : EX=0
  78.   OXT=0 : OYT= Extension_8_092E(191,2)
  79.   XT= Extension_8_092E(8,2) : YT= Extension_8_092E(24,2) : PT=1 : WRIT=1
  80.    Extension_8_0A7E 10,40
  81.    Extension_8_0A94 
  82.    Extension_8_0B78 -4,10
  83.    Extension_8_0BAE 
  84.    Extension_8_0BCC 2,2
  85.   Repeat 
  86.     View : Wait Vbl 
  87.     If WRIT Then Gosub WRITTEXT
  88.     If Inkey$<>"" or Mouse Key Then EX=1
  89.     If EX and TIM=0 Then Screen 0 : Fade 3 : Screen 1
  90.     If EX Then Inc TIM
  91.     Screen Offset 0,XL,0
  92.     Add XL,4,1 To 479
  93.   Until TIM=48 and EX=1
  94.   Rainbow Del : View 
  95.   Screen Close 0
  96.   Screen Close 1
  97.   Erase 2
  98.   Erase 10
  99.   Auto View On 
  100.   Bank Swap 5,1
  101. Pop Proc
  102. WRITTEXT:
  103.    Extension_8_0AB8 Extension_8_093A(OXT,2)+8, Extension_8_093A(OYT,2)+8
  104.    Extension_8_0AE4 
  105.   DX=XT-OXT
  106.   If Abs(DX)>8 Then Add OXT, Extension_8_093A(DX,3) Else Add OXT,DX
  107.   DY=YT-OYT
  108.   If Abs(DY)>8 Then Add OYT, Extension_8_093A(DY,3) Else Add OYT,DY
  109.   If OXT=XT and OYT=YT
  110.     If PT=Len(T$)
  111.        Extension_8_0B14 
  112.       WRIT=0
  113.     Else 
  114.       A=Asc(Mid$(T$,PT,1))
  115.       Paste Icon Extension_8_093A(XT,2), Extension_8_093A(YT,2),A-31
  116.       Do 
  117.         Inc PT
  118.         Exit If PT=Len(T$)
  119.         Add XT,64
  120.         If XT= Extension_8_092E(328,2)
  121.           XT= Extension_8_092E(8,2) : Add YT,64
  122.         End If 
  123.         A=Asc(Mid$(T$,PT,1))
  124.         Exit If A<>32
  125.       Loop 
  126.       If PT=Len(T$)
  127.         XT=0 : YT= Extension_8_092E(191,2)
  128.       End If 
  129.     End If 
  130.   End If 
  131. Return 
  132. End Proc
  133. Procedure SECOND
  134.   Bank Swap 5,1
  135.   Erase 1
  136.   Screen Open 0,320,64,2,0 : Screen Hide 
  137.   Curs Off : Flash Off : Paper 0 : Pen 1
  138.   Ink 1 : B=1
  139.   For A=16 To 6 Step -2
  140.     Cls 0
  141.      Extension_8_05E6 A-1,A-1,A-1
  142.     Get Bob B,0,0 To A*2,A*2
  143.     Hot Spot B,A,A
  144.     Inc B
  145.   Next 
  146.   Screen Open 0,320,256,64,0 : Screen Hide 
  147.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  148.   For A=0 To 31 : Colour A,0 : Next 
  149.    Extension_8_0F6C 5
  150.    Extension_8_0F56 0
  151.   Screen Show 
  152.   Rem   |--------------------| 
  153.      T$="BLABLALBALBLLBLSLFLE"
  154.   T$=T$+"BVDFVDDVFDVFDBFBDFDF"
  155.   T$=T$+"DFDFDFDFDSFDSFDFDFFD"
  156.   T$=T$+"PAUSEhHEHE!          "
  157.   T$=T$+"SOGAR MIT BILD!      "
  158.   T$=T$+"  DRUECK NE TASTE! k "
  159.   XT=-1 : YT=0 : PT=0 : YS=16 : SHOPIC=0 : PAU=0 : WAI=0 : CLR=0
  160.   RAX=100 : RO=0 : RAY=50 : CY=0
  161.   RSX=Rnd(5)+1 : RSY=Rnd(5)+1
  162.   Fade 2,$77F,$78F,$79F,$7AF,$7BF,$7CF,$7DF,$7EF,$7FF,$8FF,$9FF,$AFF,$BFF,$CFF,$DFF,$EFF,$FFF,$FEF,$FDF,$FCF,$FBF,$FAF,$F9F,$F8F,$F7F,$E7F,$D7F,$C7F,$B7F,$A7F,$97F,$87F
  163.   Repeat 
  164.     Wait Vbl 
  165.     If CLR Then Gosub CLRSCR
  166.     If Colour(16)=$FFF Then Gosub WRITTEXT
  167.     If SHOPIC and Colour(16)=0
  168.       Gosub SHOPIC
  169.       SHOPIC=0
  170.       Fade 2,$77F,$78F,$79F,$7AF,$7BF,$7CF,$7DF,$7EF,$7FF,$8FF,$9FF,$AFF,$BFF,$CFF,$DFF,$EFF,$FFF,$FEF,$FDF,$FCF,$FBF,$FAF,$F9F,$F8F,$F7F,$E7F,$D7F,$C7F,$B7F,$A7F,$97F,$87F
  171.     End If 
  172.     Gosub SHADEBOBS
  173.   Until Colour(16)=0 and PT=Len(T$)
  174.   Screen Close 0
  175.   Erase 1
  176.   Bank Swap 5,1
  177. Pop Proc
  178. CLRSCR:
  179.   If CY>255 Then CY=0 : CLR=0
  180.   PAU=1
  181.   For A=0 To 3
  182.     If CY and 1
  183.       AD=Logbase(5)+CY*40
  184.     Else 
  185.       AD=Logbase(5)+(254-CY)*40
  186.     End If 
  187.     Loke AD,0 : Loke AD+4,0 : Loke AD+8,0 : Loke AD+12,0
  188.     Loke AD+16,0 : Loke AD+20,0 : Loke AD+24,0 : Loke AD+28,0
  189.     Loke AD+32,0 : Loke AD+36,0
  190.     Inc CY
  191.   Next 
  192. Return 
  193. WRITTEXT:
  194.   If WAI and(Inkey$<>"" or Mouse Key) Then WAI=0
  195.   If WAI Then Return 
  196.   If PAU Then Dec PAU : Return 
  197.   If PT=Len(T$) Then Return 
  198.   If YS<16
  199.     For A=0 To 2
  200.       Do 
  201.         Exit If YS>15,2
  202.         D=Deek(ZP)
  203.         If D
  204.           Doke Logbase(5)+ Extension_8_092E(XT+YT*320+YS*20,1),D
  205.           Add ZP,2 : Inc YS
  206.           Exit 
  207.         End If 
  208.         Add ZP,2 : Inc YS
  209.       Loop 
  210.     Next 
  211.   Else 
  212.     Inc PT
  213.     If PT=Len(T$) : Fade 2 : Return : End If 
  214.     A=Asc(Mid$(T$,PT,1))
  215.     If A=112 or A=104 or A=107 or A=99
  216.       If A=112
  217.         Fade 2 : SHOPIC=1
  218.       End If 
  219.       If A=104
  220.         PAU=100
  221.       End If 
  222.       If A=107
  223.         WAI=1
  224.       End If 
  225.       If A=99
  226.         XT=-1 : YT=0
  227.         CLR=1 : PAU=1
  228.       End If 
  229.     Else 
  230.       Inc XT : If XT=20 : XT=0 : Inc YT : End If 
  231.       ZP=Start(7)+ Extension_8_092E(A-32,5)
  232.       YS=0
  233.     End If 
  234.   End If 
  235. Return 
  236. SHADEBOBS:
  237.   PA(0,0)= Extension_8_093A(SI(RO)*RAX,8)+160
  238.   PA(0,1)= Extension_8_093A(CO(RO)*RAY,8)+128
  239.   Add RAX,RSX
  240.   If RAX<-160 Then RSX=Rnd(5)+1
  241.   If RAX>160 Then RSX=-Rnd(5)+1
  242.   Add RAY,RSY
  243.   If RAY<-128 Then RSY=Rnd(5)+1
  244.   If RAY>128 Then RSY=-Rnd(5)+1
  245.   Add RO,4,0 To 359
  246.   For A=15 To 0 Step -1
  247.     If PA(A,0)<>0 and PA(A,1)<>0 and((A and $7)=0)
  248.        Extension_8_0F84 0,PA(A,0),PA(A,1), Extension_8_093A(A,2)+1
  249.     End If 
  250.     If A
  251.       PA(A,0)=PA(A-1,0)
  252.       PA(A,1)=PA(A-1,1)
  253.     End If 
  254.   Next 
  255. Return 
  256. SHOPIC:
  257.   Screen Hide 
  258.   Bank Swap 5,1
  259.   Unpack 6 To 1 : Screen Hide 
  260.   Screen 0
  261.   For A=0 To 15 : Colour A,0 : Next 
  262.   Get Palette 1
  263.   For A=0 To 3
  264.     Colour 17+ Extension_8_092E(A,2),$8F6
  265.     Colour 18+ Extension_8_092E(A,2),$4B2
  266.     Colour 19+ Extension_8_092E(A,2),$270
  267.   Next 
  268.   Screen 1
  269.   For A=0 To 15 : Colour A,0 : Next 
  270.   Wait Vbl : Screen Show 
  271.   Fade 2 To 0
  272.   X=Free
  273.   A$="; B: L R0=RA*256; L R1=480; L R3=0; "
  274.   A$=A$+"A: P; L X=R0/16; L Y=R1/16; L R1=R1+R3; L R3=R3+1; "
  275.   A$=A$+"I R1>4444 J C; J A; C: I R1>4544 J B; I R3<20 J A; L R3=0-R3/2; "
  276.   A$=A$+"L R1=4444; J A; "
  277.   For A=0 To 7
  278.     X=Free
  279.     If A=0 or A=3 Then I=1
  280.     If A=1 Then I=2
  281.     If A=2 Then I=3
  282.     If A=4 Then I=4
  283.     If A>4 Then I=5
  284.     Sprite A,0,0,I
  285.     Channel A To Sprite A
  286.     Amal A,String$("P",A+1)+A$
  287.   Next 
  288.   Amal On 
  289.   A=8
  290.   Repeat 
  291.     Multi Wait 
  292.     Amreg(0)=8+A : Amreg(3)=Rnd(5)
  293.     Add A,1,0 To 19
  294.   Until Inkey$<>"" or Mouse Key
  295.   For A=0 To 15
  296.     For C=0 To 31
  297.       Colour C, Extension_8_0EFC(Colour(C),-1,0 To $FFF)
  298.     Next 
  299.     Wait 2
  300.   Next 
  301.   For A=0 To 15
  302.     For C=0 To 31
  303.       Colour C, Extension_8_0EFC(Colour(C),-$10,0 To $FFF)
  304.     Next 
  305.     Wait 2
  306.   Next 
  307.   For A=0 To 15
  308.     For C=0 To 31
  309.       Colour C, Extension_8_0EFC(Colour(C),-$100,0 To $FFF)
  310.     Next 
  311.     Wait 2
  312.   Next 
  313.   Amal Off : Sprite Off 
  314.   Screen Close 1
  315.   Screen 0
  316.   For A=0 To 15 : Colour A,0 : Next 
  317.   Wait Vbl 
  318.   Bank Swap 5,1
  319.   Screen Show 
  320. Return 
  321. End Proc
  322. Procedure THIRD
  323.   Bank Swap 5,1
  324.   Erase 1
  325.   Unpack 8 To 1 : Screen Hide 
  326.   For A=0 To 58
  327.     Get Sprite A+1, Extension_8_092E(A mod 20,4), Extension_8_092E(A/20,4) To Extension_8_092E(A mod 20,4)+16, Extension_8_092E(A/20,4)+16
  328.   Next 
  329.   Screen Open 0,320,256,16,0
  330.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 0
  331.   Double Buffer 
  332.   Autoback 0
  333.   Get Sprite Palette 
  334.   For A=0 To 3
  335.     If A>0
  336.       Colour 1+ Extension_8_092E(A,2),Colour(1)
  337.       Colour 2+ Extension_8_092E(A,2),Colour(2)
  338.       Colour 3+ Extension_8_092E(A,2),Colour(3)
  339.     Else 
  340.       Colour 4,$555
  341.       Colour 8,$AAA
  342.       Colour 12,$EEE
  343.     End If 
  344.     Colour 17+ Extension_8_092E(A,2),Colour(1)
  345.     Colour 18+ Extension_8_092E(A,2),Colour(2)
  346.     Colour 19+ Extension_8_092E(A,2),Colour(3)
  347.   Next 
  348.    Extension_8_0A7E 10,40
  349.    Extension_8_0A94 
  350.    Extension_8_0AB8 160,128
  351.    Extension_8_0B78 0,0
  352.    Extension_8_0B92 
  353.    Extension_8_0BCC 2,3
  354.    Extension_8_0AD0 
  355.   X=0 : Y=-16 : NS=0 : BP=1
  356.   For A=0 To 4
  357.     SP(A,4)=-3
  358.   Next 
  359.   NEXSPR=0 : ACT=4
  360.   T$="$LANGSAM ABER SICHER$GEHT AUCH DIESE$POSTDISK$ZUENDE...$$"
  361.   T$=T$+"SCHREIB MIR AUCH MAL$WAS UEBER DICH!$$NUN GUT...$WIR SEHEN UNS WIEDER$"
  362.   T$=T$+"BEI DER NAECHSTEN!$$$BIS BALD...$            $CU$      "
  363.   Repeat 
  364.     Screen Swap 
  365.     Wait Vbl 
  366.     Gosub PULET
  367.      Extension_8_0B78 Rnd(4)-2,Rnd(4)-2
  368.      Extension_8_0AB8 158+Rnd(4),126+Rnd(4)
  369.      Extension_8_0AFC 
  370.   Until ACT=0
  371.   Fade 2
  372.   Wait 32
  373.   Sprite Off 
  374.   Screen Close 0
  375.   Erase 1
  376.   Bank Swap 5,1
  377. Pop Proc
  378. PULET:
  379.   PS=0
  380.   For A=0 To 4
  381.     If SP(A,4)<-1 Then PS=1
  382.     If SP(A,4)=0 Then Paste Bob SP(A,0),SP(A,1),SP(A,5)
  383.     If SP(A,4)=-1 Then Paste Bob SP(A,0),SP(A,1),SP(A,5) : Dec ACT
  384.   Next 
  385.   Inc TIMOUT
  386.   If PS and TIMOUT>12 Then Gosub SETSPR
  387.   For A=0 To 4
  388.     If SP(A,4)=>0
  389.       XS=SP(A,0)+(SP(A,2)*SP(A,4))/64
  390.       YS=SP(A,1)+(SP(A,3)*SP(A,4))/64
  391.       Sprite A,X Hard(XS),Y Hard(YS),SP(A,5)
  392.     Else 
  393.       Sprite Off A
  394.     End If 
  395.     Dec SP(A,4)
  396.   Next 
  397. Return 
  398. SETSPR:
  399.   If BP=Len(T$) Then Return 
  400.   A=Asc(Mid$(T$,BP,1))
  401.   If A=36
  402.     Inc BP
  403.     P=Instr(Mid$(T$,BP),"$")-1
  404.     Add Y,16
  405.     X=160- Extension_8_092E(P,3)
  406.     Goto SETSPR
  407.   End If 
  408.   SP(NS,0)=X : SP(NS,1)=Y
  409.   SP(NS,2)=(Rnd(336)-16)-X
  410.   SP(NS,3)=256-Y : SP(NS,4)=64
  411.   SP(NS,5)=A-31
  412.   Inc BP
  413.   ACT=5 : TIMOUT=0
  414.   Add X,16
  415.   Add NS,1,0 To 4
  416. Return 
  417. End Proc
  418. Procedure FOURTH
  419.   Unpack 11 To 0 : Screen Hide 
  420.   For A=0 To 15 : Colour A,0 : Next 
  421.   Wait Vbl 
  422.   Screen Show 
  423.   Fade 1,0,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF
  424.   Wait 200
  425.   Fade 1
  426.   Wait 16
  427.   Screen Close 0
  428. End Proc
  429. Procedure LAST
  430.   Screen Open 0,320,256,2,0
  431.   Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  432.   Double Buffer 
  433.   Autoback 0
  434.   WX=0 : WY=180 : WZ=0
  435.   MPX=160 : MPY=128 : MPZ=600
  436.   Restore DATS
  437.   Read ANZP
  438.   Dim PT(ANZP,2),CM(ANZP,2,1)
  439.   For A=1 To ANZP
  440.     Read PT(A,0),PT(A,1)
  441.     Add PT(A,0),22
  442.   Next 
  443.   Read ANZL
  444.   Dim LC(ANZL,1)
  445.   For A=1 To ANZL
  446.     Read LC(A,0),LC(A,1)
  447.   Next 
  448.   S=0
  449.   MIX2=0 : MIY2=0 : MUX2=1 : MUY2=1
  450.   For TIM=1 To 90
  451.     Gosub COMPCOORDS
  452.     Ink 1
  453.     MIX1=320 : MIY1=256 : MUX1=0 : MUY1=0
  454.     For A=1 To ANZL
  455.       X1=CM(LC(A,0),0,0) : Y1=CM(LC(A,0),1,0)
  456.       X2=CM(LC(A,1),0,0) : Y2=CM(LC(A,1),1,0)
  457.       MIX1=Min(Min(MIX1,X1),X2)
  458.       MIY1=Min(Min(MIY1,Y1),Y2)
  459.       MUX1=Max(Max(MUX1,X1),X2)
  460.       MUY1=Max(Max(MUY1,Y1),Y2)
  461.       Draw X1,Y1 To X2,Y2
  462.     Next 
  463.     Screen Swap 
  464.     Wait Vbl 
  465.     S=1-S
  466.     Gosub COMPCOORDS
  467.     Ink 0 : Bar MIX2-1,MIY2-1 To MUX2+1,MUY2+1
  468.     Ink 1
  469.     MIX2=320 : MIY2=256 : MUX2=0 : MUY2=0
  470.     For A=1 To ANZL
  471.       X1=CM(LC(A,0),0,1) : Y1=CM(LC(A,0),1,1)
  472.       X2=CM(LC(A,1),0,1) : Y2=CM(LC(A,1),1,1)
  473.       MIX2=Min(Min(MIX2,X1),X2)
  474.       MIY2=Min(Min(MIY2,Y1),Y2)
  475.       MUX2=Max(Max(MUX2,X1),X2)
  476.       MUY2=Max(Max(MUY2,Y1),Y2)
  477.       Draw X1,Y1 To X2,Y2
  478.     Next 
  479.     Screen Swap 
  480.     Wait Vbl 
  481.     S=1-S
  482.     Ink 0 : Bar MIX1-1,MIY1-1 To MUX1+1,MUY1+1
  483.   Next 
  484.   Screen Copy Physic(0) To Logic(0)
  485.   P= Extension_8_0CF2(0,0,MIX2,MIY2 To MUX2+1,MUY2+1)
  486.    Extension_8_0D24 10,P+1
  487.    Extension_8_0D2E 0,0,MIX2,MIY2 To MUX2+1,MUY2+1,10,0
  488.    Extension_8_0D4E 12,P+1
  489.    Extension_8_0D66 
  490.    Extension_8_0DB8 0,1
  491.    Extension_8_0D8A 0,5
  492.    Extension_8_0E62 -1
  493.    Extension_8_0F2A -1
  494.    Extension_8_0DA4 
  495.   Repeat 
  496.     Screen Swap 
  497.     Wait Vbl 
  498.      Extension_8_0DEC 
  499.   Until Extension_8_0F40 =0
  500.   Screen Close 0
  501.   Erase 10
  502.   Erase 12
  503. Pop Proc
  504. COMPCOORDS:
  505.   MPZ=Max(MPZ-10,100)
  506.   Add WX,1,0 To 359
  507.   Add WY,2,0 To 359
  508.   Add WZ,4,0 To 359
  509.   For A=1 To ANZP
  510.     X=(PT(A,0)*CO(WX)+PT(A,1)*SI(WX))/256
  511.     Y=(PT(A,0)*SI(WX)-PT(A,1)*CO(WX))/256
  512.     Z=(X*SI(WY))/256
  513.     CM(A,2,S)=(Y*SI(WZ)-Z*CO(WZ))/256
  514.     CM(A,0,S)=MPX+(X*CO(WY))/(MPZ+CM(A,2,S))
  515.     CM(A,1,S)=MPY+(Y*CO(WZ)+Z*SI(WZ))/(MPZ+CM(A,2,S))
  516.   Next 
  517. Return 
  518. DATS:
  519.   Data 22
  520. ' E
  521.   Data -50,-10
  522.   Data -50,0
  523.   Data -50,10
  524.   Data -40,-10
  525.   Data -42,0
  526.   Data -40,10
  527. ' N
  528.   Data -35,-10
  529.   Data -35,10
  530.   Data -25,-10
  531.   Data -25,10
  532. ' D
  533.   Data -20,-10
  534.   Data -20,10
  535.   Data -15,-10
  536.   Data -10,-5
  537.   Data -10,5
  538.   Data -15,10
  539. ' E
  540.   Data -5,-10
  541.   Data -5,0
  542.   Data -5,10
  543.   Data 5,-10
  544.   Data 3,0
  545.   Data 5,10
  546. '
  547.  
  548.   Data 17
  549. ' E
  550.   Data 1,3
  551.   Data 1,4
  552.   Data 2,5
  553.   Data 3,6
  554. ' N
  555.   Data 7,8
  556.   Data 7,10
  557.   Data 9,10
  558. ' D
  559.   Data 11,12
  560.   Data 11,13
  561.   Data 13,14
  562.   Data 14,15
  563.   Data 15,16
  564.   Data 16,12
  565. ' E
  566.   Data 17,19
  567.   Data 17,20
  568.   Data 18,21
  569.   Data 19,22
  570.  
  571. End Proc